/* OUTPUT TO c:\qadguicli\doc\muti_cost_mark.xls. */

DEFINE BUFFER p FOR ptp_det.
DEFINE BUFFER s FOR ptp_det.    

FOR EACH p WHERE p.ptp__chr01 = "C" AND INDEX ("500,510,220", p.ptp_site) > 0 NO-LOCK BREAK BY p.ptp_part :

   ACCUMULATE p.ptp_part (COUNT BY p.ptp_part).
   IF (ACCUM COUNT BY p.ptp_part p.ptp_part) > 1 THEN DO:
      FOR EACH s WHERE s.ptp_part = p.ptp_part AND s.ptp__chr01 = "C" NO-LOCK :
          DISP s.ptp_part s.ptp_site s.ptp__chr01 WITH STREAM-IO DOWN FRAME a.
      END.
   END.
   

END.
